Developer Helper 1: Phil & Dave's Excellent CD/Excellent CD HFS.raw/HyperCard/HyperCard 1.2.2 International/HyperCard Danish (DK-1.2.2)/Idestakke/Baggrundsideer/background_16464.txt

Text File | 1988-12-19 | 6KB | 269 lines

-- background: 16464 from stack: in
-- bmap block id: 12712
-- flags: 4000
-- background id: 0
-- name:
----- HyperTalk script -----
on openStack
  push recent card
  show message box
end openStack

on closeField
  put the short date into field "Date"
end closeField


-- part 2 (field)
-- low flags: 01
-- high flags: 0000
-- rect: left=103 top=64 right=192 bottom=432
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 2
-- text size: 14
-- style flags: 0
-- line height: 18
-- part name: Navn og adresse


-- part 3 (field)
-- low flags: 00
-- high flags: 0000
-- rect: left=123 top=201 right=260 bottom=447
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 2
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name:


-- part 4 (field)
-- low flags: 00
-- high flags: 0001
-- rect: left=334 top=258 right=276 bottom=422
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 3
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Dato


-- part 5 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=417 top=250 right=275 bottom=448
-- title width / last selected line: 0
-- icon id / first selected line: 1012 / 1012
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Retur
----- HyperTalk script -----
on mouseUp
  visual effect iris close
  pop card
end mouseUp



-- part 6 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=275 top=252 right=277 bottom=302
-- title width / last selected line: 0
-- icon id / first selected line: 1013 / 1013
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Next
----- HyperTalk script -----
on mouseUp
  visual effect wipe left
  go to next card
end mouseUp



-- part 7 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=245 top=252 right=277 bottom=272
-- title width / last selected line: 0
-- icon id / first selected line: 1014 / 1014
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Prev
----- HyperTalk script -----
on mouseUp
  visual effect wipe right
  go to previous card
end mouseUp



-- part 9 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=307 top=34 right=60 bottom=334
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Opgaver
----- HyperTalk script -----
on mouseUp
  go to card "Opgaver1" of "Kalender"
end mouseUp



-- part 10 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=382 top=34 right=58 bottom=408
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Kalender
----- HyperTalk script -----
on mouseUp
  set lockscreen to true
  go to "Kalender"
  goSixMonthly the seconds
end mouseUp



-- part 16 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=343 top=34 right=59 bottom=371
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Kalender
----- HyperTalk script -----
on mouseUp
  set lockScreen to true
  go to stack "Kalender"
  goWeekly the seconds
end mouseUp



-- part 23 (button)
-- low flags: 00
-- high flags: 0004
-- rect: left=35 top=192 right=230 bottom=76
-- title width / last selected line: 0
-- icon id / first selected line: 32670 / 32670
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name:
----- HyperTalk script -----
on mouseUp
  show all cards
end mouseUp



-- part 24 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=95 top=193 right=224 bottom=124
-- title width / last selected line: 0
-- icon id / first selected line: 30696 / 30696
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name:
----- HyperTalk script -----
on mouseUp
  get the selection
  if it is empty then get the message
  if it is empty then ask "Ring til hvilket nummer?"
  if it is not empty then
    dial it
  end if
end mouseUp



-- part 27 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=412 top=30 right=64 bottom=451
-- title width / last selected line: 0
-- icon id / first selected line: 11045 / 11045
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Hjem
----- HyperTalk script -----
on mouseUp
  visual effect iris close
  go "Home"
end mouseUp



-- part 30 (button)
-- low flags: 00
-- high flags: 0004
-- rect: left=36 top=240 right=279 bottom=76
-- title width / last selected line: 0
-- icon id / first selected line: 20186 / 20186
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name:
----- HyperTalk script -----
on mouseUp
  if the name of this stack contains "Baggrundsideer"
  then
  show card field 1  -- explain why not sort here
else
  answer "Sortér alle kortene i denne stak efter:" with "Fornavn" or "Efternavn" or "Annuller"
  if it is "Fornavn"
  then sort by first word of first line of field "Navn og adresse"
else if it is "Efternavn"
then sort by last word of first line of field "Navn og adresse"
end if
end mouseUp